home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY4.PRG < prev    next >
Text File  |  1993-07-11  |  617b  |  31 lines
  1. for m.i = 1 to 22
  2.     m.form = "form" + alltrim(str(m.i))
  3.     m.dbfile = m.form + ".dbf"
  4.     for m.j = 0 to 13
  5.         m.letter = iif(m.j = 0, "", chr(m.j-1+asc("A")))
  6.         m.scrfile = m.form +  alltrim(m.letter) + ".scx"
  7.         ?m.scrfile
  8.         select 0
  9.         if not file(m.scrfile)
  10.             exit
  11.         endif
  12.         use &scrfile alias screen
  13.         go top
  14.         locate for screen.objtype=13
  15.         do while not eof()
  16.             if inkey()=27
  17.                 suspend
  18.             endif
  19.             delete file temp.tmp
  20.             m.name = screen.name
  21.             m.valid = 'do nomemo.prg with "' + alltrim(m.name) + '"'
  22.             replace screen.valid with m.valid
  23.             continue
  24.         enddo
  25.         use
  26.     endfor
  27. endfor
  28.     
  29.     
  30.  
  31.